home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 May
/
chip-cd_2002_05.zip
/
05
/
Dom i biuro
/
Mr Faktury Pro 1.53
/
mr_faktury_pro.exe
/
0
/
RCDATA
/
TFSPRZEDAZ
/
TFSPRZEDAZ.txt
Wrap
Text File
|
2002-03-27
|
16KB
|
716 lines
object fSprzedaz: TfSprzedaz
Left = 272
Top = 158
BorderStyle = bsSingle
Caption = 'Sprzeda'#380
ClientHeight = 397
ClientWidth = 632
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 152
Top = 16
Width = 69
Height = 13
Caption = 'Symbol faktury'
end
object Label2: TLabel
Left = 456
Top = 16
Width = 73
Height = 13
Caption = 'Data sprzeda'#380'y'
end
object lData: TLabel
Left = 448
Top = 40
Width = 83
Height = 13
Caption = 'Data wystawienia'
end
object Lbf: TLabel
Left = 8
Top = 72
Width = 31
Height = 13
Caption = 'Firma :'
end
object Lba: TLabel
Left = 8
Top = 88
Width = 30
Height = 13
Caption = 'Adres:'
end
object lFirma: TLabel
Left = 48
Top = 72
Width = 27
Height = 13
Caption = 'lFirma'
end
object lAdres: TLabel
Left = 48
Top = 88
Width = 29
Height = 13
Caption = 'lAdres'
end
object lRabat: TLabel
Left = 464
Top = 344
Width = 80
Height = 13
Caption = 'Udzielono rabatu'
end
object lPlatnosc: TLabel
Left = 8
Top = 304
Width = 43
Height = 13
Caption = 'P'#322'atno'#347#263
end
object ltermin: TLabel
Left = 8
Top = 352
Width = 97
Height = 13
Caption = 'Termin p'#322'atno'#347'ci do '
end
object Label7: TLabel
Left = 464
Top = 368
Width = 52
Height = 13
Caption = 'Do zap'#322'aty'
end
object lDo_zaplaty: TLabel
Left = 560
Top = 368
Width = 67
Height = 13
Alignment = taRightJustify
Caption = 'lDo_zaplaty'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 464
Top = 288
Width = 33
Height = 13
Caption = 'Razem'
end
object lRazem: TLabel
Left = 590
Top = 288
Width = 35
Height = 13
Alignment = taRightJustify
Caption = 'lRazem'
end
object lRabatpr: TLabel
Left = 496
Top = 320
Width = 40
Height = 13
Caption = 'Rabat %'
end
object lDni: TLabel
Left = 8
Top = 328
Width = 61
Height = 13
Caption = 'Do (ilo'#347#263' dni)'
end
object Label3: TLabel
Left = 216
Top = 328
Width = 111
Height = 13
Caption = 'Dodatkowy opis faktury'
end
object lFirma_Platnik: TLabel
Left = 128
Top = 32
Width = 65
Height = 13
Caption = 'lFirma_Platnik'
end
object lPlatnik: TLabel
Left = 88
Top = 32
Width = 38
Height = 13
Caption = 'Platnik :'
end
object eSymbol: TEdit
Left = 232
Top = 8
Width = 121
Height = 21
TabOrder = 0
end
object dtSprzedazy: TDateTimePicker
Left = 544
Top = 8
Width = 82
Height = 21
CalAlignment = dtaLeft
Date = 36818.834551886580000000
Time = 36818.834551886580000000
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
OnCloseUp = dtSprzedazyCloseUp
OnExit = dtSprzedazyExit
end
object dtWystawienia: TDateTimePicker
Left = 544
Top = 32
Width = 82
Height = 21
CalAlignment = dtaLeft
Date = 36818.835224386570000000
Time = 36818.835224386570000000
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 2
end
object dbg: TDBGrid
Left = 0
Top = 104
Width = 633
Height = 177
DataSource = ds
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'lp'
Width = 22
Visible = True
end
item
Expanded = False
FieldName = 'Nazwa'
Width = 177
Visible = True
end
item
Expanded = False
FieldName = 'klasa'
Visible = True
end
item
Expanded = False
FieldName = 'ilosc'
Title.Caption = 'ilo'#347#263
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'jednostka'
Width = 32
Visible = True
end
item
Expanded = False
FieldName = 'cena_netto'
Title.Caption = 'cena netto'
Visible = True
end
item
Expanded = False
FieldName = 'vat'
Visible = True
end
item
Expanded = False
FieldName = 'wartosc_netto'
Title.Caption = 'warto'#347#263' netto'
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'wartosc'
Title.Caption = 'warto'#347#263
Width = 63
Visible = True
end>
end
object bData: TButton
Left = 424
Top = 35
Width = 19
Height = 20
Hint = 'jak data dostawy'
Caption = 'dd'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = bDataClick
end
object bZmien_firme: TButton
Left = 8
Top = 48
Width = 75
Height = 20
Caption = 'Zmie'#324' &firm'#281
TabOrder = 5
OnClick = bZmien_firmeClick
end
object bDodaj: TButton
Left = 224
Top = 296
Width = 65
Height = 25
Hint = 'Dodaj nowy towar'
Caption = '&Dodaj '
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = bDodajClick
end
object bKasuj: TButton
Left = 368
Top = 296
Width = 65
Height = 25
Hint = 'Kasuj wskazan'#261' pozycj'#281
Caption = '&Kasuj'
TabOrder = 7
OnClick = bKasujClick
end
object bZmien: TButton
Left = 296
Top = 296
Width = 57
Height = 25
Hint = 'Zmie'#324' dane '
Caption = 'Z&mien'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = bZmienClick
end
object eRabat: TEdit
Left = 552
Top = 336
Width = 81
Height = 21
TabOrder = 9
OnExit = eRabatExit
end
object ePlatnosc: TEdit
Left = 64
Top = 296
Width = 121
Height = 21
ReadOnly = True
TabOrder = 10
end
object bPlatnosc: TButton
Left = 192
Top = 296
Width = 25
Height = 20
Caption = '...'
TabOrder = 11
OnClick = bPlatnoscClick
end
object eTermin: TDateTimePicker
Left = 112
Top = 344
Width = 81
Height = 20
CalAlignment = dtaLeft
Date = 36744.453164432870000000
Time = 36744.453164432870000000
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 12
OnCloseUp = eTerminCloseUp
end
object eRabatpr: TEdit
Left = 584
Top = 312
Width = 49
Height = 21
TabOrder = 13
OnExit = eRabatprExit
end
object eDni: TEdit
Left = 88
Top = 320
Width = 49
Height = 21
TabOrder = 14
end
object eDod_opis: TMemo
Left = 208
Top = 344
Width = 201
Height = 20
Lines.Strings = (
'')
TabOrder = 15
end
object bOpis: TButton
Left = 416
Top = 344
Width = 25
Height = 20
Hint = 'Edycja dodatkowego opisu faktury'
Caption = '...'
ParentShowHint = False
ShowHint = True
TabOrder = 16
OnClick = bOpisClick
end
object bZmien_platnik: TButton
Left = 8
Top = 24
Width = 75
Height = 20
Caption = 'Zmie'#324' p'#322'atnik'
TabOrder = 17
OnClick = bZmien_platnikClick
end
object bRezygnuj: TBitBtn
Left = 344
Top = 368
Width = 81
Height = 25
Caption = '&Rezygnuj'
TabOrder = 18
OnClick = bRezygnujClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object bZapisz: TBitBtn
Left = 208
Top = 368
Width = 75
Height = 25
Caption = '&Zapisz'
TabOrder = 19
OnClick = bZapiszClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object ds: TDataSource
DataSet = mt
Left = 48
Top = 128
end
object mt: TkbmMemTable
Active = True
DesignActivation = True
AttachedAutoRefresh = True
AttachMaxCount = 1
FieldDefs = <
item
Name = 'lp'
DataType = ftInteger
end
item
Name = 'Nazwa'
DataType = ftString
Size = 70
end
item
Name = 'ilosc'
DataType = ftFloat
end
item
Name = 'cena_netto'
DataType = ftCurrency
end
item
Name = 'wartosc_netto'
DataType = ftCurrency
end
item
Name = 'wartosc'
DataType = ftCurrency
end
item
Name = 'jednostka'
DataType = ftString
Size = 5
end
item
Name = 'vat'
DataType = ftCurrency
end
item
Name = 'ilosc_stara'
DataType = ftFloat
end
item
Name = 'data_waznosci'
DataType = ftDateTime
end
item
Name = 'seria'
DataType = ftString
Size = 14
end
item
Name = 'numer_dostawa'
DataType = ftInteger
end
item
Name = 'netto'
DataType = ftCurrency
end
item
Name = 'rabat_pr'
DataType = ftCurrency
end
item
Name = 'klasa'
DataType = ftString
Size = 14
end
item
Name = 'cena_brutto'
DataType = ftCurrency
end
item
Name = 'numer'
DataType = ftInteger
end
item
Name = 'po_przecinku'
DataType = ftInteger
end
item
Name = 'typ'
DataType = ftSmallint
end
item
Name = 'cena_stara'
DataType = ftCurrency
end
item
Name = 'vat_stary'
DataType = ftCurrency
end
item
Name = 'towar'
DataType = ftBoolean
end
item
Name = 'nazwa_fis'
DataType = ftString
Size = 28
end>
AutoReposition = True
IndexDefs = <>
SortOptions = []
AllDataOptions = [mtfSaveData, mtfSaveNonVisible, mtfSaveBlobs, mtfSaveFiltered, mtfSaveIgnoreRange, mtfSaveIgnoreMasterDetail, mtfSaveDeltas]
CommaTextOptions = [mtfSaveData]
CSVQuote = '"'
CSVFieldDelimiter = ','
CSVRecordDelimiter = ','
CSVTrueString = 'True'
CSVFalseString = 'False'
PersistentSaveOptions = [mtfSaveData, mtfSaveNonVisible, mtfSaveIgnoreRange, mtfSaveIgnoreMasterDetail]
PersistentBackup = False
ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
FilterOptions = []
Version = '2.53b'
LanguageID = 0
SortID = 0
SubLanguageID = 1
LocaleID = 1024
Left = 96
Top = 128
object mtlp: TIntegerField
DisplayWidth = 6
FieldName = 'lp'
end
object mtNazwa: TStringField
DisplayWidth = 48
FieldName = 'Nazwa'
Size = 70
end
object mtilosc: TFloatField
DisplayWidth = 12
FieldName = 'ilosc'
end
object mtcena_netto: TCurrencyField
DisplayWidth = 12
FieldName = 'cena_netto'
end
object mtwartosc_netto: TCurrencyField
DisplayWidth = 14
FieldName = 'wartosc_netto'
end
object mtwartosc: TCurrencyField
DisplayWidth = 12
FieldName = 'wartosc'
end
object mtjednostka: TStringField
DisplayWidth = 9
FieldName = 'jednostka'
Size = 5
end
object mtnumer_towaru: TIntegerField
FieldKind = fkCalculated
FieldName = 'numer_towaru'
Calculated = True
end
object mtst_vat: TIntegerField
FieldKind = fkCalculated
FieldName = 'st_vat'
Calculated = True
end
object mtvat: TCurrencyField
FieldName = 'vat'
end
object mtilosc_stara: TFloatField
FieldName = 'ilosc_stara'
end
object mtdata_waznosci: TDateTimeField
FieldName = 'data_waznosci'
end
object mtseria: TStringField
FieldName = 'seria'
Size = 14
end
object mtnumer_dostawa: TIntegerField
FieldName = 'numer_dostawa'
end
object mtnetto: TCurrencyField
FieldName = 'netto'
end
object mtrabat_pr: TCurrencyField
FieldName = 'rabat_pr'
end
object mtklasa: TStringField
DisplayWidth = 4
FieldName = 'klasa'
Size = 14
end
object mtcena_brutto: TCurrencyField
FieldName = 'cena_brutto'
end
object mtnumer: TIntegerField
FieldName = 'numer'
end
object mtpo_przecinku: TIntegerField
FieldName = 'po_przecinku'
end
object mttyp: TSmallintField
FieldName = 'typ'
end
object mtcena_stara: TCurrencyField
FieldName = 'cena_stara'
end
object mtvat_stary: TCurrencyField
FieldName = 'vat_stary'
end
object mttowar: TBooleanField
FieldName = 'towar'
end
object mtnazwa_fis: TStringField
FieldName = 'nazwa_fis'
Size = 28
end
end
object frSprzedaz: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
OnBeginBand = frSprzedazBeginBand
OnGetValue = frSprzedazGetValue
Left = 152
Top = 200
ReportForm = {18000000}
end
object frUserDataset: TfrUserDataset
OnCheckEOF = frUserDatasetCheckEOF
OnFirst = frUserDatasetFirst
OnNext = frUserDatasetNext
Left = 184
Top = 200
end
object frDBDataSet: TfrDBDataSet
DataSource = ds
OnFirst = frDBDataSetFirst
OnNext = frDBDataSetNext
Left = 224
Top = 200
end
object tUslugi_cykl_bl: TffTable
DatabaseName = 'mr_sklep'
FieldDefs = <>
SessionName = '[automatic]'
TableName = 'uslugi_cykl_bl'
Timeout = 10000
Left = 24
Top = 232
end
end